<%
call FriendOE2()

sub FriendOE2()
      if session("tslt_username")<>"" then
           call ShowFriendOline()
           call ShowFriendExit()
      end if
end sub

sub ShowFriendOline()
      dim RS
      dim friend2
      set RS=conn.execute("select friend,friendtemp from ts_userinfo where username='"&session("tslt_username")&"'")
             friend2=RS("friend")
              if friend2<>"" then
                       Dim fff,i,FriendN,FriendNOline
                       fff = Split(friend2, "|")
                       For i = 1 To UBound(fff)
                              FriendN=fff(i)  
                              FriendNOline=false
                             dim onlineuserrs,onlinename
                             set onlineuserrs = server.CreateObject("adodb.recordset")
                             onlineuserrs.open "select * from ym_online order By onlinetime desc",conn,1,1    
                                  if Not onlineuserrs.Eof then
                                        for j= 1 to onlineuserrs.recordCount
                                             onlinename=onlineuserrs("onlinename")
                                             if onlineuserrs("hidename")=false then
                                                   if onlinename=FriendN then
                                                         FriendNOline=true
                                                         Exit For
                                                   else
                                                         FriendNOline=false
                                                   end if
                                              end if
                                             onlineuserrs.movenext
                                             If onlineuserrs.EOF Then Exit For
                                        Next
                                        if FriendNOline=true then
                                               Dim yyy
                                               yyy=instr(RS("friendtemp"),FriendN)
                                               if yyy=0 then
                                                      call AddOlineFriend(FriendN)
                                                      Exit For
                                              end if
                                        end if
                                  end if
                             onlineuserrs.close
                             set onlineuserrs = Nothing
                      Next
             end if
      RS.close
      set RS=nothing
end sub

sub AddOlineFriend(aaa)
        dim addfriendsql,addfriendrs
        dim friendtemp2
        addfriendsql="select friendtemp from ts_userinfo where username='"&session("tslt_username")&"'"
        set addfriendrs=conn.Execute(addfriendsql)
              friendtemp2 = addfriendrs("friendtemp")
        addfriendrs.close
        Set addfriendrs = Nothing
         if friendtemp2<>"" then
               friendtemp2= friendtemp2 & aaa&"|"
               addfriendsql="update ts_userinfo set friendtemp='"&friendtemp2&"' where username='"&session("tslt_username")&"'"
               conn.Execute(addfriendsql)
%>
               <script src=inc/Messenger.js></script>
               <script>javascript:getMsg("&nbsp;<img src='images/tushan.gif' hspace='1 width='50' height='25'><font size=1 face='arial black'>&nbsp;BBS&nbsp;</font>"  ,"&nbsp;&nbsp;ĺ&nbsp;<font color=brown><b><%=aaa%></b></font>&nbsp;Ѿߣ");</script>
<%
         else
               friendtemp2= "|" & aaa & "|"
               addfriendsql="update ts_userinfo set friendtemp='"&friendtemp2&"' where username='"&session("tslt_username")&"'"
               conn.Execute(addfriendsql)
%>
               <script src=inc/Messenger.js></script>
               <script>javascript:getMsg("&nbsp;<img src='images/tushan.gif' hspace='1 width='50' height='25'><font size=1 face='arial black'>&nbsp;BBS&nbsp;</font>"  ,"&nbsp;&nbsp;ĺ&nbsp;<font color=brown><b><%=aaa%></b></font>&nbsp;Ѿߣ");</script>
<%
        end if
end sub

sub ShowFriendExit()
        Dim sql,rs
        Dim friendtemp2 
        sql="select friendtemp from ts_userinfo where username='"&session("tslt_username")&"'"
        set rs=conn.Execute(sql)
              friendtemp2 = rs("friendtemp")
              if friendtemp2<>"" then
                       Dim fff,i,FriendN,FriendNOline
                       fff = Split(friendtemp2, "|")
                       For i = 1 To UBound(fff)
                              FriendN=fff(i)  
                              FriendNOline=true
                              Dim onlineuserrs,onlinename
                              set onlineuserrs = server.CreateObject("adodb.recordset")
                              onlineuserrs.open "select * from ym_online order By onlinetime desc",conn,1,1    
                                   if Not onlineuserrs.Eof then
                                          Dim j
                                          For j= 1 to onlineuserrs.recordCount
                                                 onlinename=onlineuserrs("onlinename")
                                                 if onlineuserrs("hidename")=false then
                                                             if onlinename<>FriendN then
                                                                   FriendNOline=false
                                                             else
                                                                   FriendNOline=true
                                                                   Exit For
                                                             end if
                                                end if
                                                onlineuserrs.movenext
                                                If onlineuserrs.EOF Then Exit For
                                          next   
                                          if FriendNOline=false then
                                               Dim ddd,delfriendsql,delfriendrs
                                               ddd=replace(friendtemp2,"|"&FriendN&"|","|")
                                               delfriendsql="update ts_userinfo set friendtemp='"&ddd&"' where username='"&session("tslt_username")&"'"
                                               conn.Execute(delfriendsql)   
                                               delfriendsql="select friendtemp from ts_userinfo where username='"&session("tslt_username")&"'"
                                               set delfriendrs=conn.Execute(delfriendsql) 
                                                      if  delfriendrs("friendtemp")="|" then
                                                              delfriendsql="update ts_userinfo set friendtemp='' where username='"&session("tslt_username")&"'"
                                                              conn.Execute(delfriendsql) 
                                                      end if
                                                      if FriendN<>"" then
%>
                                                              <script src=inc/Messenger.js></script>
                                                              <script>javascript:getMsg("&nbsp;<img src='images/tushan.gif' hspace='1 width='50' height='25'><font size=1 face='arial black'>&nbsp;BBS&nbsp;</font>"  ,"&nbsp;&nbsp;ĺ&nbsp;<font color=brown><b><%=FriendN%></b></font>&nbsp;Ѿߣ");</script>
<%
                                                       end if
                                                      Exit For
                                               delfriendRS.close
                                               Set delfriendRS = Nothing
                                          end if
                                  end if
                             onlineuserrs.close
                             Set onlineuserrs = Nothing 
                       next         
              end if
       rs.close
       Set rs = Nothing    
end sub

%>